home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas5.stk < prev    next >
Encoding:
Text File  |  1994-08-24  |  287 b   |  12 lines
  1. ;;; Canvas tags
  2.  
  3. (pack (canvas '.c1)
  4.       :fill "both" :expand #t)
  5.  
  6. (.c1 'create 'rectangle 20 20 80 80   :fill "red" :tag "cats")
  7. (.c1 'create 'rectangle 60 60 120 120 :fill "green" :tag "cats")
  8. (.c1 'create 'rectangle 40 40 100 100 :fill "blue" :tag "dogs")
  9.  
  10. (.c1 'move 'cats 100 0)
  11.  
  12.